大小写转换: function ToLower: string; function ToLower(LocaleID: TLocaleID): string; function ToLowe ...

uses System.IOUtils; procedure TForm1.FormCreate(Sender: TObject); var S: string; begin { 三种 ...